gnus-art.el (gnus-mime-view-part-as-type): Make it work when being called interactively.

diff --git a/lisp/gnus/ChangeLog b/lisp/gnus/ChangeLog
index 8bdd038af71c1703ff83edb5f36d2139e3d45ccc..e98bdd80e906e245a27143b4611d03bb93d76ce4 100644 (file)
--- a/lisp/gnus/ChangeLog
+++ b/lisp/gnus/ChangeLog
@@ -1,5 +1,8 @@
 2010-10-06  Katsumi Yamaoka  <yamaoka@jpl.org>
 
+       * gnus-art.el (gnus-mime-view-part-as-type): Make it work when being
+       called interactively.
+
        * gnus-util.el (gnus-remove-if): Allow hash table.
        (gnus-remove-if-not): New function.
 

diff --git a/lisp/gnus/gnus-art.el b/lisp/gnus/gnus-art.el
index 40f80f14bb1eb05f716c025c66f3c794bde151e0..426a248bc639e27bc5eafdf9db3d4a991f0b4a6f 100644 (file)
--- a/lisp/gnus/gnus-art.el
+++ b/lisp/gnus/gnus-art.el
@@ -5139,7 +5139,9 @@ available media-types."
          (let ((default (gnus-mime-view-part-as-type-internal)))
            (gnus-completing-read
             "View as MIME type"
-            (gnus-remove-if-not pred (mailcap-mime-types))
+            (if pred
+                (gnus-remove-if-not pred (mailcap-mime-types))
+              (mailcap-mime-types))
             nil nil nil
             (car default)))))
   (gnus-article-check-buffer)